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16-Sep-1984 02:33: AX-11 Bliss-32 V4.0-74 D 
13-808- 138 95:23:08 MIAACP SRE ISTAV IO o30¢1 wt a} 
MODULE STRVIO (LANGUAGE (Bh 18538) ° 
— = *v04-000' 


BEGIN 


RETESET TTT TTT TTT TT TTT Terrier crit r ic iti iii titi i iis ii iii ii iiiiiiiiiit. 


'@ ® 
ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 * 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. : 
is ALL RIGHTS RESERVED. * 
® 
1 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
14 i ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
15 ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS Sor TWARE OR ANY OTHER * 
1 is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
1 iw OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
9018 is TRANSFERRED. : 
0020 ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0021 '® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
99 é je CORPORATION. « 
4 ® 
99 4 it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
99 é is SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
: ® 
09 $ | peabansbannasdebneasenabennssendiauaensannnenseeaebbeeennnebanesntenntenies 
gies 
0032 FACILITY: MTAACP 
0034 i ABSTRACT 
003 this module requeuves block virtual IO on the current unit 
8 
is i ENVIRONMENT: 
003 


STARLET operating system, including privileged system services 
and internal exec routines. 
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| AUTHOR: D. H. GILLESPIE, CREATION DATE: 30-AUG-1977 
MODIFIED BY: 
! v03-002 monte at te 9-Feb-1983 15:45 
: ean up of START_VIO "ee "shat no locations in paged 
5 i oe are accessed while we are at FIPL. Also 
5 : fix to always set the UCB address before calling 
B2 EXESINSIOQ. 
5 ! v03-001 MMD0001 Meg Dumont, 33-Jan-1983 16:18 
5 ! Added routine that is called when the MTAACP has read a trailer 
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Sep-1984 AX-11 Bi isge zy 4.0-74 Page 
ifSeo- 198 02:35:98 Yared OL fag- 42 v4 ga 7 043 
label. Its purepse is to stop accidental reading or writing 

of the trailer labels. 


' 
' 
' 
! VO02-002 REFORMAT Maria del C. Nasr 30-Jun-1980 
i 


LIBRARY ‘*SYSSLIBRARY:L1B.L32'; 
REQUIRE ‘SRCS:MTADEF .B32'; 


LINKAGE 
INS_QUE = JSB (REGISTER = 3, REGISTER = 5) : NOPRESERVE (1, 2, 4); 
EXTERNA 
CURRENT UCB : REF BBLOCK, ' address of current unit control block 
CURRENT WCB : REF BBLOCK, ' address of current window control block 
QUEUE_HEAD : REF BBLOCK: ! address of ACP input queue head 


EXTERNAL ROUTINE 
EXESINSIOQ : INS_QUE ADDRESSING_MODE (ABSOLUTE); 


LOCK_CODE; 
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i FUNCTIONAL DESCRIPTION: 


10 


HbsSep-1984 02:55:08 yaratt OLis4=32 v4.0-742 


GLOBAL ROUTINE START_VIO : COMMON _CALL NOVALUE = 


This routine queues blocked virtual 10 to the current unit 


i CALLING SEQUENCE: 


START_VIO(), called in kernel mode 


i "NPUT PARAMETERS: 


none 


i IMPLICIT INPUTS: 


CURRENT _UCB - address 
blocked 
CURRENT_VCB - address 


of current unit control block to which all 

virtual 10 is to be queued 

of current volume core block which contains 
ea 


the blocked virtual 10 List h 


CURRENT _WCB - address 


of current window control block which is currently 


not mapping virtual 10 
QUEUE _HEAD - address of ACP input queue head to which mapping errors 


i OUTPUT PARAMETERS: 
none 


i IMPLICIT OUTPUTS: 


for this volume are queue 


window restored mapping to current unit 
virtual 10 requeued to that unit 


i ROUTINE VALUE: 


none 


i SIDE EFFECTS: 


this routine runs at fork 
portion of Q10 processing 


BEGIN 

EXTERNAL REGISTER 
COMMON ; 

LOCAL 


pat : REF BBLOCK, 


FUNCTION, 

PACKET : REF BBLOCK, 
ucB : REF BBLOCK, 
vcB : REF BBLOCK, 
wCB : REF BBLOCK,  ! 
QUEUE _ENTRY : REF BBLOCK, 
UCB_SAVE : REF BBLOCK; 


' ALL data structures used in 


level in order to synchronize with the mapping 
and the magnetic tape driver 


address of ACP queue entry 

10 function code 

address of 10 request packet which is to be requeued 
address of current UCB 

address of current volume control block 

address of the window control block 

' address of ACP ipgut queue 


: address of saved UC 


these routine must be accessible from 


' local storage. Because we raise to fork IPL we can not afford to 


! cause a page fault. 


Kk 10 
1eo$ep-198e 18:40:50 EntancecsneSstavio:032; 


URRENT_UCB; 
URRENT-VCB; 
URRENT-WCB; 
T QUEUE _HEAD; 


2 s CURRENT OcB; 
PL(.UCBCUCBS$B_FIPLI); 


address of UCB to which io is to be queue 
address of current VCB 

address of current WCB 

address of ACP input aes 

Address of current UC 

raise to fork level 


-—- wncoc<cc 


PUSPUSVSVSVSUSISISISISISISIIIS 


WAWNIWANNIWWIwinonoronorononor 


WN =O OONAUES WN -2£ 9 ODNOAU EWN OO ODNOAUE WN (OO ONOULS UMN 


IF REMQUE(.VCBCVCBSL_BLOCKFLJ, PACKET) 


fix up map pointer with UCB which is to receive virtual 10 
EXITLOOP; 
} may have been cleared when error was processed 


WCBCWCBSW_NMAP] = 1: 
(WCBCWCBSQ_P1_COUNTI)<0, 32> = .UCB; 
1 requeuve all blocked io to current unit 
WHILE 1 
DO 
PACKETCIRPSV_VIRTUAL) = 1; 
4 
4 
4 
: 


WN — SO OONAUE WN “OC ODNOUS WO 


BEGIN 

! this is here because INSIOQ does not preserve R5 
UCB = .UCB_SAVE; 

EXESINS LOOT PACKET, UCB); 


!' Scan input queue for any mapping errors that belong to this volume 

! put them at the tail of blocked 10 List. Also the ASCP tape drives 

! outstanding 1/0's will be found in this queue under most circumstances. 
ENTRY = .QUEUE_ENTRYCAQBSL_ACPOQFL); 

waits -ENTRY NEQA .QUEUVE_ENTRY 


BEGIN 
FUNCTION = .ENTRYCIRPSV_FCODE); 


IF FUNCTION EQL I0$_READPBLK 
4h er ton EQL 10$_WRITEPBLK 
BEGIN 
if, OOLOCKEENTRYCIAPSL UCB). UCBSL_VCB) EQLA .VCB 
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BEGIN 
ENTRY = .ENTRYCIRPSL 1008; 
REMQUE(.ENTRYCIRPSL_TOQFLJ, PACKET); 
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30 Entaace-saeSsiaviose3274 


8 ! may have been cleared when error was processed 
i PACKETCIRPSV_VIRTUAL] = 1; 
§ UCB = .UCB_SAVE; 
EXESINS!OQT. PACKET, .UCB); 
. END; 
5 4 
288 END; 
388 ENTRY = .ENTRYLIRPSL_IOQFLI; 
589 END; 
8239 SET_IPL(O) 
0592 END? 
.TITLE STRVIO 
[IDENT \V04-000\ 
.EXTRN CURRENT_UCB, CURRENT_WCB 
-EXTRN QUEUE_HEAD, EXESINSIOQ 
«PSECT S$LOCKEDC1$,NOWRT,2 
07FC 00000 -ENTRY START_VIO, Save R2,R3,R4,R5,R6,R7,RB,R9,R10 
55 00006 CF DO 9000¢ MOVL § CURRERT_UCB, UCB 
cA 5B 00 0000 MOVL § CURRENT-VCB, VCB 
50 00006 CF DO O000A MOVL §§ CURRENT “WCB, WCB 
59 00006 CF DO O000F MOVL § QUEUE HEAD, QUEUE_ENTRY 
58 00006 CF DO 00014 MOVL § CURRERT_UCB, UCB_SAVE 
51 0B AS 9A 00019 MOVZBL 11(UCB)> R1 
12 51 DA 0001D MTPR RI, #18 
16 AO 01 B80 00020 MOVW «#1, 22(WCB) 
30 A0 55 DO 00024 MOVL UCB, 48(WCB) 
5 00 BA OF 00028 1$ REMQUE a@0(VCB), PACKET 
OF 1D 0002C BVS 
2a AB 10 88 000 BISB2 #16, 42(PACKET) 
55 58 D0 000 MOVL UCB. SAVE, UCB 
000000006 9F 16 000 JSB a#ERESINS100 
“2 11 00038 BRB 1 
56 : DO 00030 a8: MOVL § (QUEUE_ENTRY), ENTRY 
59 36 D 9040 $: CPL ENTRY, GQUEUE_ENTRY 
20 Ab 06 99 EF 00045 EXTZV #0, #6 32 (ENTRY), FUNCTION 
C D1 00048 CMPL FUNCTION, #12 
05 13 0004 BEQL 6 4$ 
0B D1 0005 CMPL FUNCTION, #11 
iF 1 5 BNEG = 5§ 
50 1c Ab OD 4$ MOVL (ENTRY), RO 
A 34 =«O«A : 9 CMPL (RO), véB 
1 Q D BNE 
5 04 Ab SF MOVL  4C(ENTRY), ENTRY 
0 & F OC 63 REMQUE @O(ENTRYS, PACKET 
2a (OA BISB2 #16, 42(PACKET) 
5 3 p B MOVL UCB. SAVE, UCB 
900000006 9F E JSB @#ERESINS100 
56 66 D 5$ MOVL (ENTRY), ENTRY 
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16-Sep-1984 02:33: AX-11 Bliss-32 V4.0-742 Page 6 
13-808- 1882 95:33:08 MTAACP. SRCISTRVIO.B32:1 ’ (2) 
7 11 00077 BRB 3 ; 05 
12 66 BA 00979 6$: MTPR 2, #18 : 0391 
4 7¢ RET ; 0592 
3; Routine Size: 125 bytes, Routine Base: $LOCKEDC1$ + 0000 
> 211 237 1 
3 \¢ 94 1 GLOBAL ROUTINE STOP_VIO : COMMON_CALL NOVALUE = 
; a 595 1 lee 
; 214 S208 1! 
3 219 828 1 ! FUNCTIONAL DESCRIPTION: 
: 18 b2o8 : This routine blocks virtual 10 from happening over the current WCB 
>; 218 0600 1 ! CALLING SEQUENCE: 
: 1 gee) ! STOP_VIO(), called in kernel mode 
; A 008 1 ! INPUT PARAMETERS: 
3 ¢ 604 1! none 
3 ge 0605 1! 
3 $e B08 1 ! IMPLICIT INPUTS: 
; 5 0607 1! CURRENT _WCB - address of current window control block which is currently 
; $8 bens } : not mapping virtual 10 
3 Hh 0610 1 ! OUTPUT PARAMETERS: 
: $3 611 1! none 
3 0 ol¢ 7 | 
3; al 0615 1 ! IMPLICIT OUTPUTS: 
3 3 pole ! window mapping to current unit stopped 
: See 0616 1 ! ROUTINE VALUE: 
8 ase 0617 1! none 
; 236 0618 1! 
3 esr 0619 1 ! SIDE EFFECTS: | 
; 238 0620 1! this routine runs at fork level in order to synchronize with the mapping 
: 4 +9 1 : } portion of Q10 processing and the magnetic tape driver 
: 241 be : 1 !-- 
3; 26 0624 1 
; 24 0625 BEGIN 
: 246 be § 
3: 245 6 EXTERNAL REGISTER 
: 246 0628 COMMON_REG; 
: 247 86 9 
3 48 0 CURRENT_WCBCWCBSW_NMAP]) = 0; 
; 249 0631 1 ND; 
0000 000 ENTRY STOP_VIO, Save nothing 3 0594 
50 0000G CF ob0 8 MOVL CURRENT WCB, RO : 0630 
16 AO B CLRW (RO) 3 
4 OA RET ; 0631 


; Routine Size: 11 bytes, Routine Base: $LOCKEDC1$ + 0070 


N 10 


19-300 -1 138% 96:33 +08 AX-11 Bliss-32 V4.0-742 
1a-8ep =| MTAACP.SRCISTRVIO.B32;1 
1 
; END 
0 ELUDOM 
PSECT SUMMARY 
Bytes Attributes 
136 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
cooscces Syabels eocecece Pages Processing 
Total Loaded Percent Mapped Time 
_$255$DUA28: CSYSLIBILIB.L32;1 18619 17 0 1000 00:01.8 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:STRVIO/OBJ=OBJ$:STRVIO MSRC$:STRVIO/UPDATE=(ENHS$:STRVIO) 
136 code: + 0 data bytes 


Lexenes/CPU-Min: 19909 
; 99 pages 


e 
: eee Bs a Complete 


ASE, AH-BT13A-SE : . : NT CORPORATION 
Winwi VAX/VMS V4.0 - AND PROPRIETARY 


